Top 10k strings from Data Genie (1984)(Audiogenic Software).tzx in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [TZX] (TOSEC-v2007-01-01) /
Back to the directory listing
8 r+on,c+on;" 5 r+ON,c+ON;" 4 elim=lim-on: 4 PRESS ANY KEY 4 ;" ": 4 /@T/@T/@T/ 4 "2",c+on;"Exit "; 3 RECORD DATA 3 ;" "; 3 "2",c+on;"Exit "; 3 "2",c+ON;"Exit"; 2 screen=ON: 2 printer=ZE: 2 on;" "; 2 n$="DATA ": 2 elim=lim+on: 2 PRESS ANY KEY TO VERIFY DATA 2 LENGTH ERROR 2 DATA GENIE 2 ;"0 REC ERROR": 2 ;"0 REC ERROR" 2 ;"0 FIELD ERROR" 2 88888888888888888888888888888888 2 /@T/@T/@T/@ 2 "Which? ";wh: 2 "DATA " 2 "9";" ": 2 "2";" " 1 test=test+(a$(f,2 1 screen;"Screen"; 1 s$=" ": 1 rr=r+ON+ON: 1 recp=recp-(recp>rec): 1 recp=recp+(recp=ze) 1 rec=rec-on: 1 r+ON+ON,c+ON;"Set up file "; 1 q$(ON)="y" 1 q$(ON)="Y" 1 printer;"Printer"; 1 k$+ON))+k$ 1 elim=lim-ON: 1 elim=lim+x-ON: 1 elim=lim+5 1 elim=lim+3 1 ed4=ed4-(ed4>1 1 ed4=ed4+(ed4<x) 1 ed3=ed3-((ed3>1 1 ed3=ed3+((ed3<(x*lre-(lre-1 1 ed3+(lre-1 1 ed2=ed2+lre: 1 ed2=ed2+lre 1 ed2+(lre-1 1 ed1=ed1-(ed1>1 1 b$(rec)="": 1 b$(max,lre): 1 b$(k)=b$(k+on): 1 b$(ed1,ed3 1 b$(del)="" 1 a+r,c;s$(1 1 a$(o)=a$(o+1 1 ZE;" " 1 WAITING FOR DATA 1 VERSION 2.1 - Richard 1 VERIFY DATA 1 Sub for print at 20 1 STR=STR+(lre* 1 STR=ADD-STA: 1 S$=" ": 1 S T O P T H E T A P E 1 RECP<(on+(lre* 1 Place data in file 1 PRINT RECORD 1 PRESS ANY KEY TO LOAD DATA 1 ON;"field ";rr- 1 ON;"LENGTH ERROR": 1 ON;" " 1 GENIE3 1 GENIE2 1 GENIE 1 1 Enter true record 1 ERROR MESSAGES 1 ENTER FIELDS 1 ED3=((STR/(lre* 1 ED3=((ED4*lre)+on)-((ED4=on)*lre)-((ED4>on)*lre) 1 Delete record now 1 DELETE RECORDS 1 CLEAR FIELDS 1 A.H.C.Powell 1 A+R,C;S$(1 1 ;test;" FIELD ERROR(S)": 1 ;"Record ";rek;" ": 1 ;"Record ";rek: 1 ;"Rec up "; 1 ;"Rec down "; 1 ;"Print CUR/REC"; 1 ;"PRINT RECORD": 1 ;"Other "; 1 ;"More than 1 "; 1 ;"LOOK " 1 ;"LIST-REC "; 1 ;"Exit "; 1 ;"Exit "; 1 ;"Edit up "; 1 ;"Edit rec "; 1 ;"Edit down"; 1 ;"DATA GENIE": 1 ;"DATA GENIE IS FULL": 1 ;"CUR/REC=";recp 1 ;" ";b$(ed1,ed3 1 ;" :"; 1 ;" "; 1 ;" "; 1 ;" "; 1 ;" ": 1 ;" "; 1 -lre);b$(rek,ed2 1 )=" "): 1 (STR/(lre* 1 (ED3/(lre-on))+(ED4=ze)+on: 1 "Yes or No? ";q$: 1 "Which? ";del: 1 "To? ";to: 1 "Search>";F$: 1 "Name: ";N$(on 1 "How many fields? ";x: 1 "From? ";fr: 1 "Do you wish to 1 "Data length(10-20)?";da: 1 "9";" ": 1 "9";" ": 1 "9",c+ON;"SINCLAIR SET"; 1 "8";" " 1 "8",c+on;"Name: ";N$ 1 "8",c+on;" "; 1 "8",c+ON;"Exit "; 1 "7";" ": 1 "7",c+on;"TOTL-REC ";rec; 1 "7",c+on;" cassette "; 1 "7",C+ON;"Print record"; 1 "65380"=ze 1 "65380",ze: 1 "6127"+n): 1 "6";"VERIFY DATA": 1 "6";"STORAGE ": 1 "6";"SET UP FILE": 1 "6";"SEARCH ": 1 "6";"SAVE DATA": 1 "6";"NO OF FIELDS ": 1 "6";"MAIN MENU ": 1 "6";"LOAD DATA": 1 "6";"ENTER RECORD ": 1 "6";"ENTER FIELDS ": 1 "6";"EDIT LINE ": 1 "6";"DELETE RECORDS ": 1 "6";"CLEAR FIELDS ": 1 "6";" ": 1 "6";" ": 1 "6",c+on;"CUR/REC ";recp; 1 "6",c+on;" microdrive "; 1 "6",c+on;" "; 1 "6",c+ON;"Down " 1 "6",c+ON;"CLS "; 1 "6",c+ON;" SYSTEM RESET " 1 "5",c+on;"Verify Records"; 1 "5",c+on;"SYSTEM RESET " 1 "5",c+on;"Delete Records"; 1 "5",c+on;"CUR/REC ";recp 1 "5",c+on;" 1 "5",c+ON;"Up "; 1 "5",c+ON;"Storage "; 1 "5",c+ON;"Clear fields "; 1 "4",c+on;"View records "; 1 "4",c+on;"Other record "; 1 "4",c+on;"Load Records "; 1 "4",c+ON;"Search "; 1 "4",c+ON;"Enter field "; 1 "4",c+ON;"Delete "; 1 "4",C+on;"CONT search "; 1 "3",c+on;"Yes " 1 "3",c+on;"Verify data" 1 "3",c+on;"Search "; 1 "3",c+on;"Save data" 1 "3",c+on;"Save Records "; 1 "3",c+on;"Load data" 1 "3",c+on;"Enter record "; 1 "3",c+on;"Delete CUR/REC"; 1 "3",c+ON;"No fields "; 1 "3",c+ON;"Insert "; 1 "3",c+ON;"Enter record"; 1 "3",c+ON;"Edit line ": 1 "3",c+ON;" ";x;" field(s)"; 1 "23606",ZE: 1 "22000"/lre): 1 "21",ZE;" "; 1 "21",ZE;" ": 1 "20",ze;" 1 "2";" 1 "2",c+on;"Exit "; 1 "2",c+ON;"Exit "; 1 "15"))-RECP)*(lre* 1 "11",C+ON;"SYSTEM RESET" 1 "11");" ": 1 "10",c+ON;"GENIE SET "; 1 "1";"MAX-REC ";max 1 "1";"DATA " 1 "0";" ";b$(rek,ed2 1 "0"+"DATA " 1 " ";: 1 a new one ? (R 1 a file"''"or 1 SET UP FILE 1 ENTER RECORD 1 DATA GENIE 1 AUDIOGENIC 1 NO OF FIELDS 1 STORAGE 1 SEARCH 1 ": 1 DESFORGES 1 1 1